APPENDIX E 
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// 



FILE: labelcl.cpp 

FUNCTIONALITY: class Database definition 

PROGRAM: required to codes which opens database config file 

COMMENTS: attempt to use symbols for patient ID that can 
link to specific database, symbols for space 
reduction representing files for retrieval 

AUTHOR: A. CHRISTIAN TAHAN 

DATE FIRST VERSION: 02/12/00 



#include "Labelcl.h" 

Boolean LabelFilelnterface: :Configure(const Strings config_file, const 
String & section) 

{ 

ConfigFile conf; 

String labeltype, label_extension; 
conf .Open_File(config_file); 

conf . Get_St ri ng.Opt ( " DBaseOpt i ons " , " Label Fi leType " , labeltype) ; 

conf . Get_St r i ng_0pt ( " DBaseOpt i ons " , " Label Fi leExtensi on " , 
label_extension) ; 

//add here a new class for label handling 

if ( labeltype=="ntimitLabel") 
{ 

New_For_Polimorphic_Pointer_With_Allocated_Class 
(NTimitLabelClass); 

C*this)->label=NTimitLabel ; 
} 

else 

if (labeltype=="ntimitreducedlabel") 
{ 

New_For_Pol imorphi c_Poi nter_Wi th_Al located_Class 
(NTimitReducedLabelClass) ; 

C*this)->label=NTimitReducedLabel; 
} 

else 



if (labeltype== n ntimit39label H ) 
{ 

New_For_Polimorphic_Pointer_With_Allocated_Class 
(NTimit39LabelClass) ; 

(*this)->label=NTimit39Label ; 
} 

else 

if (labeltype== n atislabel n ) 
{ 

New_For_Polimorphic_Pointer_With_Allocated_Class 
(AtisLabelsClass) ; 

(*this)->label=AtisLabel ; 
} 

else 

if (labeltype=="atisreducedlabel") 
{ 

New_For_Polimorphic_Pointer_With_Allocated_Class 
(AtisReducedLabelsClass) ; 

(*this)->label=AtisReducedl_abel; 
} 

else 

i f (labeltype=="apasci reducedlabel ") 
{ 

New„For_Polimorphic_Pointer - _With_Allocated_Class 
(ApasciReducedLabelsClass) ; 

(*this)->label=ApasciReducedLabel; 
} 

else 

if (labeltype== M apascilabel") 
{ 

New_For_Polimorphic_Pointer_With_Allocated_Class 
(ApasciLabelsClass); 

(*this)->label=Apascil_abel ; 

} 

else 

if aabeltype== n LabelsFromFile n ) 
{ 

New„For_Polimorphic_Pointer_With_Allocated_Class 
(CustomLabelsFromFile) ; 

C*this)->label=LabelsFromFile; 
} 

else { 

merr« ,, Unknown label file type specified in config 

file: "«labeltype; 

} 



return ((*this)->Initialize(config_file, section, label_extension)); 
} 



//*************************^ 

// * 

// LabelSymbolTable * 

// * 
//************************^ 



void LabelSymbolTable: :Translate_Symbol(String & symb, t.index num_sym) 
const 

{ 

symb=symb_table[num_sym] ; 

return; 

} 

t.index LabelSymbolTable: :Translate_Symbol(const String & sym) const 
{ 

t_index num=0; 
t_index len_sym; 

len_sym=symb_table . Dim() ; 

while(num<len_sym AND symb_table[num] !=sym) 
num++ ; 

if(num==len_sym) 
{ 

merr« M symbol not found in Translate__Symbol : n «sym; 
} 

return num; 
} 



t_index LabelSymbolTable: :Get_Num_0f .Symbol s() const 
{ 

return symb_table.Dim(); 
} 



// * 

// FileOf Labels * 

// * 

Fi leOf Labels :: FileOf LabelsO 
{ 

prev_entry=0; 
} 

FileOfLabels: :~FileOfLabels() 
{ 

prev_entry=0; 
} 

if (symb_position[prev_entry] .pos_in_file==0UL OR 
symb_position[0] . pos„in_f ile==0UL) 
merr«"Unsegmented file. Filtered access not possible"; 

if (symb_position[prev_entry] .pos^in_file>act_smp AND 
symb_position[prev_entry] . num_sym==sym) 

{ 

Assert(prev_entry==0 OR symb.position 
[prev_entry-l] . pos_in_f ile<act_smp) ; 

new_smp_pos=act_smp ; 
return (Boolean)TRUE; 
} 

prev_entry++; 

while (prev_entry<symb_position.DimO AND 

symb_posi ti on [pr ev_ent ry] . num_sym ! 



=sym) 



prev_entry++; 



i f (prev_entry==symb_posi tion . Dim()) 
{ 

new_smp_pos =0; 
prev_entry = 0; 
return (Boolean)FALSE; 
} 

else { 

new_smp_pos=symb_posi t i on 

[prev_entry-l] .pos_in_file; 

return (Boolean)TRUE; 
} 



//BINARY search 

t_index step,i; 
i=(symb_posi tion . Dim())/2 ; 
step=(l+i)/2; 

while(!(symb_position[i] .pos_in_file<smp AND symb_position[i 
+1] .pos_in_file>smp) 

AND !(symb_position[i] .pos_in_file>smp AND i==0)) 

{ 

if (symb_position[i] .pos_in_file<smp) 

i+=step; 
else i-=step; 

step=(l+step)/Z; 
} 

if(i!=0 OR symb_position[i] .pos_in„file<smp) 
i++; 

sym=symb_position[i] .num_sym; 

i=prev_entry; 

return; 

} 



f or( j=0 ; j<dim ; 
{ 

Translate_Symbol(tempsymb, symb_position[j] .num.sym); 

file«tempsymb«" " ; 

} 

file«endl; 
return file; 
} 



void GenericFileOf Labels: :Reset() 
{ 

label= No^Symbol ; 

prev_entry=0; 

symb_position . ResetO ; 

symb.table . ResetO ; 

return; 

} 



// * 

// NTimitLabel * 

// * 
//*********************^ 

Boolean NTimitLabelClass: :Initialize(const String & file_name, 

const String & 

file_section, const String &label_ext) 
{ 

t_i ndex num_sym , i ; 

label_extension=label_ext ; 

Assert(label==NTimitLabel) ; 

const char *list_of .symbols []= 

{"iy" , "ih" , "eh" , "ae" , "ux" , "ix" , "ax" , "ah" , "uw" , "uh" , "ao" , "aa" , "ey" , "ay" , "oy" 
,"aw", 

"ow" , "1" , "r" , "y" , "w" , "er" , "axr" , "el" , "em" , "en" , "eng" , "m" , "n" , "ng" , "ch" , " jh" 
» 

"dh" , "b" , "d" , "dx" , "nx" , "g" , "p" , "t" , "k" , "q" , "z" , "zh" , "v" , "f " , "th" , M s" , 

'■shv'hhv'hvv'pciv'^ 

au", n ax-h"}; 

num_sym=63; 

symb_table . Destroy _And_ReDim(num_sym) ; 
f o r C i =0 ; i <n urrusy m ; i ++) 

symb_table[i]=list_of_symbols[i] ; 

return TRUE; 
} 



Boolean NTimitLabelClass: :Open_Sym(const String & file_name) 
{ 

String name, temp; 
ifstream f_lis; 
t_index i=0; 
t_index num_sym=0; 
t_index temp_num; 



prev_entry=0; 

name«file_name« M . "«label_extension; 
f_lis.open(name,ios: : in I ios: rnocreate); 
if(f.lis.failO) 

while (NOT f_lis.eof()) 
{ 

f _1 i s»t emp_num ; 
f_lis»temp_num; 
f_lis»temp; 

if(!(f_lis.eof() AND temp[0]==EOF)) num_sym++; 
} 



f_lis.clear(); 

f _1 i s . seekg(0 , i os : : beg) ; 

if (num_sym==0) 

merr« n Empty file of ID transcription "«name; 

symb_position.Destroy_And_ReDim(num_sym); 
for (i=0;i<num_sym;i++) 
{ 

f _1 i s»t emp_num ; 

f _1 i s»symb_posi t i on [i ] . pos_i n_f i I e ; 
f_lis»temp; 

symb_position[i] . num_sym=Translate_Symbol(temp) ; 
} 

f_lis.close(); 

return TRUE; 
} 



// * 

// NTimitReducedLabel * 

// * 

Boolean NTimitReducedLabelClass: :Open_Sym(const String & file.name) 
{ 



String name, temp; 
if st ream f_lis; 



t_index i=0; 
t_index num_sym=0; 
t_index temp_num; 

prev_entry=0; 

name«file_name«" . n «label_extension; 
f_lis.open(name,ios: :inlios: rnocreate); 
if(f_lis.fail()) 

merr«"Could not open ID transcription file: "«name; 



while (NOT f_lis.eof()) 
{ 

f_lis»temp_num; 
f_lis»temp_num; 
f_lis»temp; 

if(!(f_lis.eofO AND temp[0]==EOF)) num_sym++;- 
} 



f_lis.clear(); 
f_lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr«"Empty file of ID transcription "«name; 

symb_posi tion . Destroy _And_ReDim(num_sym) ; 
for (i=0;i<num_sym;i++) 
{ 

f _l i s»t emp_num ; 

f _l i s»symb_posi t i on [i ] . pos_i n_f i le ; 
f_lis»temp; 

symb_position[i] .num_sym=Translate_Symbol(temp) ; 
} 

f_lis.close(); 

return TRUE; 
} 

t_index NTimitReducedl_abelClass:.:Translate_Symbol(const String & sym) const 
{ 

t.index num=0; 
t_index len_sym; 

Assert(label NTimitReducedLabel OR label ==AtisLabel); 



len_sym=symb_table . Dim() ; 
while(num<len_sym AND symb_table[num] !=sym) 
num++; 



i f (num==len_sym) 
{ 

if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if(sym== 
if Csym== 
if(sym== 



"ux") num=7; else 

"el") num=16; else 

axr") num=20; else 

"ax-h") num=5; else 

"em") num=21; else 

"en") num=22; else 

"nx") num=22; else 

'eng") num=23; else 

'q") num=32; else 
f hv") num=40; 



"pel 1 
'tcl' 
"kcl' 
"qcl 1 
'bcl' 
"del 1 
'gel' 

II*** I 



) num=41 
) num=41 
) num=41 
) num=41 
) num=42 
) num=42 
) num=42 



else 
else 
else 
else 
else 
else 
else 
else 



num=100; else //separator 



if(sym=="#h" OR sym=="h#" OR sym == "pau" ) 
num=44; 

else { 

merr«"unknown symbol of NTIMIT. Symbol: "«sym; 
} 

} 



return num; 
} 



Boolean NTimitReducedLabelClass: :Initialize(const String & file_name, 

const String & section_name, const String &label_ext) 
{ 

t_index num_sym,i; 



label_extension=label_ext ; 



Assert(label==NTimitReducedLabel); 

const char *list_of .symbol s[]= 

{"iy" , "in" , "eh" , "ae" , "ix" , "ax" , "ah" , "uw" , "uh" , "ao" , "aa" , "ey" , "ay" , "oy 
,"ow", 

"1" , "r" , "y" , "w" , "er" , "m" , "n" , "ng" , "ch" , " jh" , "dh" , "b" , "d" , "g" , "p" , "f ' , 
"k" , "z" , "zh" , "v" , "f " , "th" , "s" , "sh" , "hh" , "cl" , "vcl" , "epi " , "sil" , "dx"} ; 
num_sym=46 ; 

symb_table . Destroy _And_ReDim(num_sym) ; 
f o r ( i =0 ; i <num_sym ; i ++) 

symb_tabl e [i ] =1 i st_of .symbol s [i ] ; 

return TRUE; 
} 

// * 
// NTimit39Label * 

// * 

Boolean NTimit39LabelClass: :Open_SymCconst String & file_name) 
{ 

String name, temp; 
if st ream f_lis; 
t.index i=0; 
t_index num_sym=0; 
t_index temp_num; 

prev_entry=0; 

name«file_name« f ' . f, «label_extension; 
f_lis.open(name,ios: :inlios: rnocreate); 
if(Ois.failO) 

merr«"Could not open ID transcription file: "«name; 



while (NOT fJLis.eofO) 
{ 

f_lis>>temp_num; 
f __1 i s»t emp_num ; 
f_lis»temp; 



if(!(f J.is.eof() AND temp[0]==EOF)) num_sym++; 
} 



f_Lis.clearO; 
f_lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr« M Empty file of ID transcription "«name; 

symb_position . Destroy _And_ReDim(num_sym) ; 
for (i=0;i<num_sym;i++) 
{ 

f _1 i s»temp_num ; 

f„lis»symb_position[i] ,pos_in_file; 
f_lis»temp; 

symb_position[i] . num_sym=Translate_Symbol(temp) ; 
} 

f_lis.closeO; 

return TRUE; 
} 

t_index NTimit39LabelClass: :Translate_Symbol(const String & sym) const 
{ 

t_index num=0; 
t_index len_sym; 

AssertQabel == NTimit39Label); 

len_sym=symb_table . Dim() ; 
while(num<len_sym AND symb_table[num] !=sym) 
num++; 

if(num==len_sym) 
{ 

if(sym=="#h" OR sym=="h#" OR sym 
OR sym == "tcl" OR sym 

OR sym == "del" 

OR sym == "gel" OR sym 

num=37; //si I 



== "pair 'OR sym == "pel" 
== "kcl" OR sym == "bcl" 

== "qcl" OR sym == "epi") 



else if(sym=="ux") num=5; 
else if(sym=="el") num=13; 
else if(sym=="axr") num=17; 



//uw 
// 1 
//er 



k 

hh 
aa 
ih 
sh 

separator 



else if(sym=="ax-h" OR sym=="ax") num=4; //ah 
else if(sym=="em") num=18; // m 

else if(sym=="en" OR sym=="nx") num=19; // n 
else if(sym=="eng") num=20; //ng 
else if(sym=="q") num=29; // 

else if(sym=="hv") num=36; // 

else if(sym=="ao") num=7; // 

else if(sym=="ix") num=l; // 

else if(sym=="zh") num=35; // 

else if(sym=="***") num=100; // 

else { 

merr«"unknown symbol of NTIMIT. Symbol: "«sym; 
} 



} 



return num; 
} 



Boolean NTimit39LabelClass: :Initialize(const String & file_name, 

const String & section_name, const String &label_ext) 
{ 

t_index num_sym,i; 

label_extension=label_ext; 

Assert(label==NTimit39Label) ; 

const char *list_of_symbols[]= 

{"iy" , "ih" , "eh" , "ae" , "ah" , "uw" , "uh" , "aa" , "ey" , "ay" , "oy" , "aw" , "ow" , 

"I" , "r" , "y" , "w" , "er" , "m" , "n" , "ng" , "ch" , " jh" , "dh" , "b" , "d" , "g" , 

"p" , "t" , "k" , "z" , "v" , "f " , "th" , "s" , "sh" , "hh" , "sil" , "dx"} ; 

num_sym=39; 

symb_table . Destroy _And_ReDim(num_sym) ; 



f or (i =0 ; i <num_sym ; i ++) 

symb_tabl e [i ] =1 i st_of _symbol s [i ] ; 

return TRUE; 
} 



Boolean AtisReducedLabelsClass: :Initialize(const String & file_name, 

const 

String & section_name, const String &label_ext) 
{ 

t_index num_sym,i ; 

label_extension=label_ext ; 

Assert(label== AtisReducedLabel) ; 

const char *list_of .symbols []= 

{"iy" , "ih" , "eh" , "ae" , "ah" , "uw" , "uh" , "aa" , "ey" , "ay" , "oy" , "aw" , "ow" , 

"I " , " r" , "y" , "w" , "m" , "n" , "ch" , " jh" , "dh" , "b" , "d" , "g" , 
"p" , "t" , "k" , "z" , "v" , "f " , "th" , "s" , "sh" , "hh" , "sil"} ; 

num_sym=36; 



symb_table . Destroy _And_ReDim(num_sym) ; 

f o r ( i =0 ; i <n um_sym ; i ++) 

symb_table[i]=list_of .symbols [i] ; 

return TRUE; 
} 

Boolean AtisReducedLabelsClass: :Open_Sym(const String &file_name) 
{ 

String name, temp; 
if st ream f_lis; 
t_index i=0; 
t_index num_sym=0; 
t_index temp_num; 

prev_entry=0; 

name«file_name«" . "«label_extension; 



f_lis.open(name,ios: : in I ios: :nocreate); 
if(f_lis.fail()) 

merr«"Could not open ID transcription file: "«name; 



while (NOT fJLis.eofO) 
{ 

f _l i s»temp_num ; 
f _l i s»temp_num ; 
f_lis»temp; 

if(!(f_lis.eof() AND temp[0]==EOF)) num_sym++; 
} 



f_lis.clear(); 
f__lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr«" Empty file of ID transcription "«name; 

symb_position. Destroy _And_ReDim(num_sym) ; 
for (i=0;i<num_sym;i++) 
{ 

f _l i s»t emp_num ; 

f _l i s»symb_posi t i on [i ] . pos_i n_f i I e ; 
f_lis»temp; 

symb„position[i] .num_sym=Translate_Symbol(temp); 
} 



f_lis.close(); 

return TRUE; 
} 

t_index AtisReducedLabelsClass: :Translate_Symbol(const String & sym) const 
{ 

t.index num=0; 
t_index len_sym; 

Assert(label ==AtisReducedLabel) ; 

len_sym=symb_table . Dim() ; 
while(num<len_sym AND symb_table[num] !=sym) 
num++; 



if(num==len_sym) 
{ 



«sym ; 



} 

return num; 
} 



if(sym=="ao") 
if(sym=="ix") 
if(sym=="nx") 
if(sym=="ax") 
if(sym=="zh n ) 



num=7; 
num=l ; 
num=18 ; 
num=4; 
num=33 ; 



else // aa 
else // ih 
else // n 
else // ah 
else // sh 



if(sym=="***") num=100; else // separator 
{ 

merr«"unknown symbol of ATISLabel. Symbol: 
} 



Boolean AtisLabelsClass: :Open_Sym(const String & file_name) 
{ 

String name, temp; 
if stream f_lis; 
t_index i=0; 
t_index num__sym=0; 

prev_entry=0; 

name«file_name«" . "«label_extension; 
f_lis.open(name,ios: :inlios: :nocreate); 
if(f_lis.fail()) 

merr«"Could not open ID transcription file: "«name; 

while (If.lis.eofO) 
{ 

f_lis»temp; 

if(!(f_lis.eof() AND temp[0]==EOF)) num_sym++; 
} 

f_lis.clear(); 
f_lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr« n Empty file of ID transcription "«name; 



symb_posi tion . Destroy_And_ReDim(num_sym) ; 
for (i=0;i<num_sym;i++) 
{ 

f_lis»temp; 

symb_posi t i on [i ] . num_sym=Translat e_Symbol ( temp) ; 
} 

f.lis.closeO; 

return TRUE; 
} 



Boolean AtisLabelsClass: :Initialize(const String & file_name, 

const 

String & section.name, const String &label_ext) 
{ 

t_index num_sym,i; 

label_extension=label_ext ; 

Assert(label== AtisLabel); 
{ 

const char *list_of .symbols []= 
{"iy" , "ih" , "ix M , "eh" , "ae" , "ao" , "ax" , "uw" , "uh" , "aa" , "ey" , "ay" , "oy" , "aw 

1 , r , y , w , er -, m , n , ng , nx , ch , jh , ah , b , a , g , 

II,- II 1IJ_II "I," II If tl^tl Uj_l-iM 11 — 11 ll-LM "--U" IlLLlI II _ * 1 

p , t , k , z , v , t , th , s , sh , zh , nh , su 



num_sym=42 ; 

symb_table . Destroy_And_ReDim(num_sym) ; 

f or(i=0 ; i<num_sym ; i++) 

symb_t a bl e [i ] =1 i st_of .symbol s [i ] ; 

} 

return TRUE; 
} 

Boolean ApasciLabelsClass: : Open_Sym(const String & file_name) 
{ 



String name, temp; 
if stream f_lis; 
t_index i=0; 
t_index num_sym=0; 
t_index temp_num;. 

prev_entry=0; 

name«file_name«" . "«label_extension; 
f_lis.open(name,ios: tinlios: :nocreate); 
if(f_lis.failO) 

merr«"Could not open ID transcription file: "«name; 



while (NOT f_lis.eof()) 
{ 

f_lis»temp_num; 
f_lis»temp_num; 
f_lis»temp; 

if(!(f_lis.eof() AND temp[0]==EOF)) num_sym++; 
} 



f_lis.clear(); 
f_lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr«"Empty file of ID transcription n «name; 

symb_posi tion. Destroy _And_ReDim(num_sym); 
for (i=0;i<num_sym;i++) 
{ 

f_lis»temp_num; 

f _1 i s»symb_pos i t i on [i ] . pos_i n_f i 1 e ; 
f_lis»temp; 

symb_position[i] .num_sym=Translate_Symbol(temp); 
} 

f_lis.close(); 

return TRUE; 
} 

t_index ApasciLabelsClass: :Translate_Symbol(const String & sym) const 
{ 

t_index num=0; 
t_index len_sym; 



sil 

separator 



Assert(label == ApasciLabel); 

len_sym=symb_table . Dim() ; 
while(num<len_sym AND symb_table[num] !=sym) 
num++; 

if(num==len_sym) 
{ 

if(sym=="E M ) num=l; // e 

else if(sym=="0") num=3; // o 

else if(sym=="@bg") num=48; // 

else if(sym=="***") num=100; // 

else { 

merr«"unknown symbol of APASCI Symbol: "«sym; 
} 



return num; 
} 



Boolean ApasciLabelsClass: :Initialize(const String & file_name, 

const 

String & section_name, const String &label_ext) 
{ 

t_index num_sym,i; 
label_extension=label_ext ; 
Assert(label== ApasciLabel); 
const char *list_of_symbols[]= 

"SS" , "tS" , "dZ" , "ts" , "dz" , "ttS" , "ddZ" , "tts" , "ddz" , " j " , "w" , "p" , "t" , "k" , "b" , 

"d" , "g" , "pp" , "tt" , "kk" , "bb" , "dd" , "gg" , "m" , "n" , "J" , "mm" , "nn" , "JJ" , "I" , "r" , 
"L","U","rr","LL","sil", "@sch"}; 



num_sym=50 ; 

symb_table . Destroy_And_ReDim(num_sym) ; 



f or(i=0 ; i<num_sym ; i++) 

symb_t a bl e [i ] =1 i st_of .symbol s [i ] ; 

return TRUE; 
} 



Boolean ApasciReducedLabelsClass: :Open_Sym(const String & file_name) 
{ 

String name, temp; 
if st ream f_lis; 
t_index i=0; 
t_index num_sym=0; 
t_index temp.num; 

prev_entry=0; 

name«f i le_name«" . "«label_extension ; 
f_lis.open(name,ios: :inlios: :nocreate); 
if(f.lis.failO) 

merr«"Could not open ID transcription file: "«name; 



while (NOT f_lis.eof()) 
{ 

f _li s»temp_num ; 
f_lis»temp_num; 
f_lis»temp; 

if(!(f_lis.eof() AND temp[0]==EOF)) num_sym++; 
} 



f_lis.clear(); 
f_lis.seekg(0,ios: :beg); 

if (num_sym==0) 

merr«"Empty file of ID transcription n «name; 

symb_position . Destroy _And_ReDim(num_sym) ; 
for (i=0;i<num_sym;i++) 
{ 

f _1 i s»temp_num ; 

f _1 i s»symb_posi t i on [i ] . pos_i n_f i 1 e ; 
f_lis»temp; 

symb_posi tion[i] . num_sym=Translate_Symbol(temp) ; 



} 



f_lis.close(); 

return TRUE; 
} 

t_index ApasciReducedLabelsClass: :Translate_Symbol(const String & sym) 
const 

{ 

t_index num=0; 
t_index len_sym; 

Assert(label == ApasciReducedLabel); 

len_sym=symb_table . DimO ; 
while(num<len_sym AND symb_table[num] !=sym) 
num++ ; 

if(num==len_sym) 
{ 



if(sym== f, E") num=l; 




// e 




else if(sym=="0") num=3; 




// 0 




else if(sym== n ff ") num=5; 




// f 




else if(sym=="w") num=6; 






// 


else if(sym=="ss") num=7; 




// s 




else if(sym="SS") num=9; 






// 


else ifCsym^'ttS") num=10; 


//ts 




else if(sym=="ddZ n ) num=ll; 




// 


else if(sym="tts") num=12; 




// 


else if(sym=="dd2 n ) num=13; 




// 


else if(sym=="pp") num=16; 




// 


else if(sym== n tt n ) num=17 






// 


else if(sym=="kk") num=18 




// 


k 


else if(sym="bb") num=19 




// 


b 


else if(sym=="dd") num=20 




// 


d 


else if(sym="gg") num=21 




// 


g 


else if(sym== ,, mm") num=22 




// 


m 


else ^f(sym=="nn ,, ) num=23 




// 


n 



else 
else 
else 
else 
else 



if(sym== n JJ H ) num=24; 
if(sym=="ll") num=25; 
if(sym=="rr") num=26; 
if(sym=="LL") num=27; 
if(sym=="@bg") num=28; 



// J 
// I 
// r 
// L 



// 



sil 



else 



if(sym=="***") num=100; 



// 



separator 



else 



{ 



merr«"unknown symbol of APASCI Symbol: "«sym; 
} 



} 



return num; 
} 



Boolean ApasciReducedLabelsClass: :Initialize(const String & file_name, 

const String & section_name, const String &label_ext) 
{ 

t_i ndex num_sym , i ; 

label_extension=label_ext ; 

Assert(label==ApasciReducedLabel); 

const char *list_of_symbols[]= 

{"a" , "e" , "i " , "o" , "u" , "f " , "v" , "s" , "z" , "S" , "tS" , "dZ" , "ts" , "dz" , " j " , "w" , "p" , 
"t" , "k" , "b" , "d" , "g" , "m" , "n" , "J" , "I" , "r" , "L" , "sil " , "@sch"} ; 

num_sym=30; 

symb_table . Destroy _And_ReDim(num_sym) ; 
f or(i=0 ; i<num_sym ; i++) 

symb_tabl e [i ] =1 i st_of .symbol s [i ] ; 

return TRUE; 
} 



//************************************************************** 



// 
// 



LabelTrans 



Boolean CustomLabelsFromFile: :Initialize(const String & file_name, 

const String & section_name, const String &label_ext) 

{ 

merr«"this function must be implemented"; 

return TRUE; 

} 

Boolean CustomLabelsFromFile: :Open_Sym(const String & file_name) 
{ 

merr«"this function must be implemented"; 

return TRUE; 

} 



